home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / C-Cl / Cardz.cpt / Hyper Cards / card_3925.txt < prev    next >
Text File  |  1988-01-10  |  13KB  |  570 lines
  1. -- card: 3925 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 4000
  4. -- background id: 3405
  5. -- name: Master
  6.  
  7.  
  8. -- part 65 (field)
  9. -- low flags: 80
  10. -- high flags: 0001
  11. -- rect: left=144 top=66 right=330 bottom=511
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 128
  16. -- text size: 24
  17. -- style flags: 0
  18. -- line height: 32
  19. -- part name: greeting
  20.  
  21.  
  22. -- part 4 (field)
  23. -- low flags: 01
  24. -- high flags: 0004
  25. -- rect: left=3 top=23 right=202 bottom=142
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 0
  29. -- font id: 3
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: Control
  34.  
  35.  
  36. -- part 12 (button)
  37. -- low flags: 00
  38. -- high flags: 2000
  39. -- rect: left=12 top=111 right=145 bottom=47
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 31975 / 31975
  42. -- text alignment: 1
  43. -- font id: 0
  44. -- text size: 12
  45. -- style flags: 0
  46. -- line height: 16
  47. -- part name: Menus
  48. ----- HyperTalk script -----
  49. on mouseUp
  50.   if visible of bkgnd field toggle is false then
  51.     show menuBar
  52.     show bkgnd field toggle
  53.   else
  54.     hide menuBar
  55.     hide bkgnd field toggle
  56.   end if
  57. end mouseUp
  58.  
  59.  
  60.  
  61. -- part 20 (field)
  62. -- low flags: 81
  63. -- high flags: 0001
  64. -- rect: left=203 top=24 right=65 bottom=408
  65. -- title width / last selected line: 0
  66. -- icon id / first selected line: 0 / 0
  67. -- text alignment: 0
  68. -- font id: 3
  69. -- text size: 12
  70. -- style flags: 0
  71. -- line height: 16
  72. -- part name: hidetitle
  73.  
  74.  
  75. -- part 23 (button)
  76. -- low flags: 00
  77. -- high flags: A000
  78. -- rect: left=88 top=82 right=102 bottom=127
  79. -- title width / last selected line: 0
  80. -- icon id / first selected line: 17794 / 17794
  81. -- text alignment: 1
  82. -- font id: 0
  83. -- text size: 12
  84. -- style flags: 0
  85. -- line height: 16
  86. -- part name: Print
  87. ----- HyperTalk script -----
  88. on mouseUp
  89.   play boing
  90.   hide menuBar
  91.   hide bkgnd field hidehelp1
  92.   hide bkgnd field hidehelp2
  93.   show bkgnd field hidehelp3
  94.   show bkgnd field bottomrule
  95.   answer "Would you like to print the help?" with "Chooser" or "Yes" or "No"
  96.   if it is "Chooser" then domenu "Chooser"
  97.   if it is "Yes" then
  98.     set cursor to 4
  99.     print card
  100.   end if
  101.   show bkgnd field hidehelp1
  102.   show bkgnd field hidehelp2
  103.   hide bkgnd field hidehelp3
  104.   hide bkgnd field bottomrule
  105. end mouseUp
  106.  
  107.  
  108.  
  109. -- part 41 (button)
  110. -- low flags: 00
  111. -- high flags: 2000
  112. -- rect: left=17 top=75 right=107 bottom=42
  113. -- title width / last selected line: 0
  114. -- icon id / first selected line: 1002 / 1002
  115. -- text alignment: 1
  116. -- font id: 0
  117. -- text size: 12
  118. -- style flags: 0
  119. -- line height: 16
  120. -- part name: New
  121. ----- HyperTalk script -----
  122. on mouseDown
  123.   go to card 2
  124.   click at loc of card button "New"
  125. end mouseDown
  126.  
  127.  
  128.  
  129. -- part 42 (button)
  130. -- low flags: 00
  131. -- high flags: A000
  132. -- rect: left=453 top=16 right=65 bottom=512
  133. -- title width / last selected line: 0
  134. -- icon id / first selected line: 24829 / 24829
  135. -- text alignment: 1
  136. -- font id: 0
  137. -- text size: 12
  138. -- style flags: 0
  139. -- line height: 16
  140. -- part name: Hyper Cards
  141. ----- HyperTalk script -----
  142. on mouseUp
  143.   visual effect iris open to white
  144.   go to stack "Hyper Cards"
  145. end mouseUp
  146.  
  147.  
  148.  
  149. -- part 44 (button)
  150. -- low flags: 00
  151. -- high flags: 2000
  152. -- rect: left=58 top=78 right=104 bottom=78
  153. -- title width / last selected line: 65535
  154. -- icon id / first selected line: -15797 / 49739
  155. -- text alignment: 1
  156. -- font id: 0
  157. -- text size: 12
  158. -- style flags: 0
  159. -- line height: 16
  160. -- part name: Delete
  161. ----- HyperTalk script -----
  162. on mouseUp
  163.   set lockScreen to true
  164.   answer "You can't delete the Master cards." with "OK"
  165.   set lockScreen to false
  166. end mouseUp
  167.  
  168.  
  169.  
  170. -- part 49 (button)
  171. -- low flags: 00
  172. -- high flags: 2000
  173. -- rect: left=15 top=149 right=172 bottom=44
  174. -- title width / last selected line: 0
  175. -- icon id / first selected line: 21700 / 21700
  176. -- text alignment: 1
  177. -- font id: 0
  178. -- text size: 12
  179. -- style flags: 0
  180. -- line height: 16
  181. -- part name: Home
  182. ----- HyperTalk script -----
  183. on mouseUp
  184.   global temp
  185.   visual effect iris close to black
  186.   dolist "Go...", "Cancel", temp,1
  187.   get the result
  188.   if it is not empty then
  189.     if item 2 of it <> "Finder" then
  190.       go to stack item 2 of it
  191.     else
  192.       finder
  193.     end if
  194.   end if
  195. end mouseUp
  196.  
  197. on finder
  198.   answer "Are you using MultiFinder?" with "Yes" or "No"
  199.   if it is "No" then
  200.     domenu quit
  201.   else
  202.     domenu finder
  203.   end if
  204. end finder
  205.  
  206.  
  207. -- part 59 (button)
  208. -- low flags: 00
  209. -- high flags: 2000
  210. -- rect: left=50 top=113 right=139 bottom=77
  211. -- title width / last selected line: 0
  212. -- icon id / first selected line: 1014 / 1014
  213. -- text alignment: 1
  214. -- font id: 0
  215. -- text size: 12
  216. -- style flags: 0
  217. -- line height: 16
  218. -- part name: Prev
  219. ----- HyperTalk script -----
  220. on mouseUp
  221.   set lockscreen to true
  222.   set cursor to 4
  223.   go prev
  224.   get first line of card field "control"
  225.   put it into cardName
  226.   repeat for the number of cards
  227.     if the name of this card contains "Master" then exit mouseUp
  228.     if first line of card field "control" contains cardName then
  229.       if the name of this card contains "1 Fold" then
  230.         oneFold
  231.       else
  232.         twoFold
  233.       end if
  234.     end if
  235.   end repeat
  236. end mouseUp
  237.  
  238. on oneFold
  239.   put "false" into it
  240.   repeat until it contains "true"
  241.     if first word of last line of card field "control" <> "Front" then
  242.       go prev
  243.     else
  244.       exit oneFold
  245.     end if
  246.   end repeat
  247.   set lockscreen to false
  248. end oneFold
  249.  
  250. on twoFold
  251.   put "false" into it
  252.   repeat until it contains "true"
  253.     if last line of card field "control" <> "Inside Right-Left" then
  254.       go prev
  255.     else
  256.       put "true" into it
  257.     end if
  258.   end repeat
  259.   set lockscreen to false
  260. end twoFold
  261.  
  262.  
  263.  
  264. -- part 60 (button)
  265. -- low flags: 00
  266. -- high flags: 2000
  267. -- rect: left=108 top=113 right=139 bottom=135
  268. -- title width / last selected line: 0
  269. -- icon id / first selected line: 1013 / 1013
  270. -- text alignment: 1
  271. -- font id: 0
  272. -- text size: 12
  273. -- style flags: 0
  274. -- line height: 16
  275. -- part name: Next
  276. ----- HyperTalk script -----
  277. on mouseUp
  278.   go to third card
  279. end mouseUp
  280.  
  281.  
  282.  
  283. -- part 66 (button)
  284. -- low flags: 00
  285. -- high flags: 2000
  286. -- rect: left=79 top=113 right=139 bottom=106
  287. -- title width / last selected line: 0
  288. -- icon id / first selected line: 1015 / 1015
  289. -- text alignment: 1
  290. -- font id: 0
  291. -- text size: 12
  292. -- style flags: 0
  293. -- line height: 16
  294. -- part name: Scroll
  295. ----- HyperTalk script -----
  296. on mouseUp
  297.   global list1,list2
  298.   set lockScreen to true
  299.   if the name of this card contains "Master" then
  300.     play doo tempo 300 c c
  301.     put "There are no other segments in the master card.  Going to next."
  302.     set lockscreen to false
  303.     visual effect venetian blinds
  304.     go next
  305.     hide msg
  306.     exit mouseUp
  307.   end if
  308.   if the name of this card contains "1 Fold" then
  309.     oneFold
  310.   else
  311.     twoFold
  312.   end if
  313. end mouseUp
  314.  
  315. on oneFold
  316.   global list1
  317.   doList "Go", "Cancel", list1,1
  318.   get the result
  319.   if it is not empty then
  320.     set cursor to 4
  321.     put item 2 of it into chosen
  322.     get first line of card field "control"
  323.     put it into cardName
  324.     set lockscreen to true
  325.     repeat for the number of cards
  326.       if (first line of card field "Control" = cardName and last line of card field "Control" = chosen) then
  327.         set lockscreen to false
  328.         exit oneFold
  329.       else
  330.         go next
  331.       end if
  332.     end repeat
  333.     play harpsichord h6
  334.     put "Something's wrong.  I couldn't find that panel!"
  335.     go to first card
  336.     wait 2 seconds
  337.     play harpsichord h5
  338.     hide msg
  339.   end if
  340.   set lockscreen to false
  341. end oneFold
  342.  
  343. on twoFold
  344.   set lockscreen to false
  345.   if card field "Control" contains "Right-Left" then
  346.     visual effect scroll up
  347.     go next
  348.     if card field "Control" contains "Back-Front" then
  349.       exit twoFold
  350.     end if
  351.   else
  352.     visual effect scroll down
  353.     go prev
  354.     if card field "Control" contains "Right-Left" then exit twoFold
  355.   end if
  356.   play harpsichord h6
  357.   put "Something's wrong.  I couldn't find that panel!"
  358.   go to first card
  359.   wait 2 seconds
  360.   play harpsichord h5
  361.   hide msg
  362. end twoFold
  363.  
  364.  
  365. -- part 67 (button)
  366. -- low flags: 00
  367. -- high flags: 2000
  368. -- rect: left=94 top=145 right=177 bottom=119
  369. -- title width / last selected line: 0
  370. -- icon id / first selected line: 20486 / 20486
  371. -- text alignment: 1
  372. -- font id: 0
  373. -- text size: 12
  374. -- style flags: 0
  375. -- line height: 16
  376. -- part name: Note
  377. ----- HyperTalk script -----
  378. on mouseUp
  379.   if the name of this card contains "Master" then
  380.     play harpsichord tempo 300 h6 h5 h6
  381.     answer "You can't enter notes on the Master card..." with "Okay"
  382.     if it is "Okay" then exit mouseUp
  383.   end if
  384.   if (the visible of card field "note" is true or the visible of card field "lefttext" is true or the visible of card field "righttext" is true) then
  385.     answer "Clear and hide note?" with "Yes" or "No"
  386.     if it is "Yes" then
  387.       put "" into card field "note"
  388.       hide card field "note"
  389.       put "" into card field "lefttext"
  390.       hide card field "lefttext"
  391.       put "" into card field "righttext"
  392.       hide card field "righttext"
  393.       exit mouseUp
  394.     else
  395.       exit mouseUp
  396.     end if
  397.   else
  398.     if the name of this card contains "1 Fold" then
  399.       oneFold
  400.     else
  401.       twoFold
  402.     end if
  403.   end if
  404. end mouseUp
  405.  
  406. on oneFold
  407.   show card field "note"
  408.   play harpsichord c
  409.   put "Please choose a font..."
  410.   click at loc of card field "note"
  411.   domenu "Text Style..."
  412.   put ""
  413.   hide msg
  414.   answer "Do you want to show lines?" with "Yes" or "No"
  415.   if it is "Yes" then
  416.     set showLines of card field "note" to true
  417.   else
  418.     set showLines of card field "note" to false
  419.   end if
  420. end oneFold
  421.  
  422. on twoFold
  423.   show card field "lefttext"
  424.   show card field "righttext"
  425.   play harpsichord C
  426.   put "Please choose a font for the left panel..."
  427.   tabKey
  428.   click at loc of card field "lefttext"
  429.   domenu "Text Style..."
  430.   answer "Do you want to show lines?" with "Yes" or "No"
  431.   if it is "Yes" then
  432.     set showLines of card field "lefttext" to true
  433.   else
  434.     set showLines of card field "lefttext" to false
  435.   end if
  436.   tabKey
  437.   play harpsichord G
  438.   put "And now the right panel..."
  439.   click at loc of card field "righttext"
  440.   domenu "Text Style..."
  441.   answer "Do you want to show lines?" with "Yes" or "No"
  442.   if it is "Yes" then
  443.     set showLines of card field "righttext" to true
  444.   else
  445.     set showLines of card field "righttext" to false
  446.   end if
  447.   put ""
  448.   hide msg
  449. end twoFold
  450.  
  451.  
  452.  
  453. -- part 68 (button)
  454. -- low flags: 00
  455. -- high flags: 2000
  456. -- rect: left=91 top=142 right=181 bottom=123
  457. -- title width / last selected line: 0
  458. -- icon id / first selected line: 0 / 0
  459. -- text alignment: 1
  460. -- font id: 0
  461. -- text size: 12
  462. -- style flags: 0
  463. -- line height: 16
  464. -- part name: texthelp
  465. ----- HyperTalk script -----
  466. on mouseUp
  467.   put "Here's the text help!"
  468. end mouseUp
  469.  
  470.  
  471.  
  472. -- part 70 (button)
  473. -- low flags: 00
  474. -- high flags: 2000
  475. -- rect: left=52 top=147 right=173 bottom=78
  476. -- title width / last selected line: 0
  477. -- icon id / first selected line: 26635 / 26635
  478. -- text alignment: 1
  479. -- font id: 0
  480. -- text size: 12
  481. -- style flags: 0
  482. -- line height: 16
  483. -- part name: Help
  484. ----- HyperTalk script -----
  485. on mouseUp
  486.   hide menuBar
  487.   show card field greeting
  488.   wait 2 seconds
  489.   hide card field greeting
  490.   hide bkgnd field hidehelp1
  491.   hide bkgnd field hidehelp2
  492.   show bkgnd field hidehelp3
  493.   show bkgnd field blinker
  494.   repeat until the mouse is down
  495.     put "Click to continue..." into bkgnd field blinker
  496.     play doo tempo 200 a3W a#3Q a3Q g#3Q a3Q a#3W b3Q c4H. d4H  e4Q f4Q g4Q f4Q e4Q d4Q c4W f3Q g3Q a3H a3H a3Q d4H c4Q f4H f4H f3Q g3Q a3H a3H d4Q. e3E e3Q e3Q f3W
  497.     put "" into bkgnd field blinker
  498.   end repeat
  499.   answer "Would you like to print the help?" with "Chooser" or "Yes" or "No"
  500.   if it is "Chooser" then domenu "Chooser"
  501.   if it is "Yes" then
  502.     set cursor to 4
  503.     print card
  504.   end if
  505.   show bkgnd field hidehelp1
  506.   show bkgnd field hidehelp2
  507.   hide bkgnd field hidehelp3
  508.   hide bkgnd field blinker
  509. end mouseUp
  510.  
  511.  
  512.  
  513.  
  514. -- part contents for card part 4
  515. ----- text -----
  516. Hyper Cards 1.0
  517. Help Card
  518.  
  519.  
  520.  
  521.  
  522.  
  523.  
  524.  
  525.  
  526. 12/25/87
  527.  
  528.  
  529. -- part contents for background part 7
  530. ----- text -----
  531.  
  532. The Hyper Cards stack gives you an easy way to create greeting cards on your ImageWriter or LaserWriter printer, using ordinary 8.5" x 11" paper.
  533.  
  534. Keyboard Controls:
  535. ‚Ä¢ Press the Tab key to toggle the control panel on/off.
  536. ‚Ä¢ Press the Enter key to toggle the rulers on/off.
  537. ‚Ä¢ Press the Left/Right keyboard arrow keys operate the 
  538.    left/right arrows on the control panel. 
  539. ‚Ä¢ Press the Up/Down arrow keys to operate the round, 
  540.    "card segment" button on the control panel.
  541. ‚Ä¢ Option-Enter to see more help on this stack.
  542.  
  543. Commercial sale of this stack is prohibited.  All rights reserved.
  544.  
  545.  
  546.  
  547. -- part contents for background part 10
  548. ----- text -----
  549. Commercial sale of this stack is prohibited without the author's permission.
  550.  
  551. -- part contents for background part 14
  552. ----- text -----
  553. Hyper Cards
  554.  
  555. -- part contents for background part 15
  556. ----- text -----
  557. by David K. Simerly ¬© 1987
  558.  
  559. -- part contents for background part 8
  560. ----- text -----
  561. Thanks to
  562. James L. Paul for the HyperList XCMD, and to BMUG for the PopUpMenu XCMD.
  563.  
  564. -- part contents for card part 65
  565. ----- text -----
  566.  
  567.  
  568. Merry Christmas to All HyperCard Users!
  569.  
  570. Have a Great New Year!